   1 .MEMORY CONTENTS-BINARY
   2 .BY MAX MANOWSKI
   3 .MODIFIED BY B.BILBRAY
  10 input D;clear ;print #7,D;A=%(D);print #7,A;if A<0goto 30
  20 gosub 1000;goto 2000
  30 A=-A;gosub 1000;for B=1to 16;if @(B)=48@(B)=49;goto 50
  40 @(B)=48
  50 next B
  60 B=1
  70 @(B)=@(B)+1
  80 if @(B)=50 @(B)=48;B=B+1;goto 70
  90 goto 2000
1000 for B=1to 16;@(B)=A-Adiv 2mul 2+48;A=Adiv 2;next B;return 
2000 for B=16to 1step -1;if (B=12)+(B=8)+(B=4)TV=32
2010 TV=@(B);next B;print ;goto 10
:return ;run 
